110 A$ = "300: 20 EA 03 20 66 D5 N 3F2:00 03 A6 N D7D2G": FOR I = 1 TO LEN(A$): POKE 511 +I, ASC( MID$ (A$,I,1)) +128: NEXT : POKE 72,0: CALL -144
120 REM
130 REM ABOVE SETS UP A ROUTINE
140 REM WHICH MAKES THE PROGRAM
150 REM RESTART WHENEVER THE
160 REM RESET KEY IS PRESSED.
170 REM (FROM "RESETTING RESET"
180 REM BY BOB CLARDY & KEVIN
190 REM KILLION,PAGES 133-135
200 REM 'ALL ABOUT APPLESOFT')
210 REM
220 GOSUB 420
230 HOME : PRINT CHR$(7): GR : VTAB 21
240 BC = INT(15 * RND(1)) +1: COLOR= BC
250 FOR Y = 0 TO 39: HLIN 0,39 AT Y: NEXT
260 PRINT "AN INTRUDER HAS PENETRATED ";: FLASH : PRINT "SECSYS-342": NORMAL : PRINT
270 PRINT TWN$" ";: INVERSE : PRINT "POLICE";: NORMAL : PRINT " AND ";: INVERSE : PRINT "FIRE DEPARTMENT";: NORMAL : PRINT "HAVE BEEN NOTIFIED AND ARE ENROUTE...";
280 CO = INT(16 * RND(1) +1): IF CO = OCO OR CO = BC THEN 280
290 COLOR= CO:OCO = CO
300 READ Y1,Y2,X: IF NOT Y1 THEN 320
310 VLIN Y1,Y2 AT X: GOTO 300
320 RESTORE :T = T +1: IF T < >5 THEN 280
330 T = 0:BC = INT(15 * RND(1)) +1: COLOR= BC: FOR Y = 0 TO 39: HLIN 0,39 AT Y: NEXT : GOTO 230
340 DATA 1,4,0,16,19,0,1,19,1,1,19,2,1,4,3,16,19,3,1,19,5,4,12,6,7,16,7,21,39,7,1,19,8,21,24,8,31,32,8,21,24,9,31,32,9,1,4,10,21,39,10
350 DATA 1,19,11,1,19,12,21,39,12,1,4,13,36,39,13,36,39,14,1,19,15,36,39,15,1,1,16,10,10,16,12,14,16,1,1,17,7,10,17,14,16,17,21,39,17
360 DATA 1,7,18,16,19,18,21,24,18,29,31,18,36,39,18,21,24,19,29,31,19,36,39,19,1,19,20,21,24,20,36,39,20,16,19,21,16,19,22,21,39,22
370 DATA 1,19,23,21,21,23,30,30,23,32,34,23,21,21,24,27,30,24,34,36,24,1,19,25,21,27,25,36,39,25,2,4,26,16,18,26,3,7,27,14,17,27,21,24,27
380 DATA 5,15,28,21,39,28,21,39,29,1,19,30,21,24,30,1,4,31,9,11,31,16,19,31,1,4,32,9,11,32,16,19,32,1,4,33,16,19,33,1,19,35,1,1,36,10,10,36
390 DATA 12,14,36,1,1,37,7,10,37,14,16,37,1,7,38,16,19,38
400 DATA 0,0,0
410 RESUME
420 TWN$ = "WEST HARTFORD": RETURN
430 REM ^ YOUR CITY OR TOWN ^
440 REM NO MORE THAN 13 CHARS<CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J>
